home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / StartupTools / WildStar.lha / WildStar / WildStar.asm < prev    next >
Assembly Source File  |  1992-03-09  |  2KB  |  78 lines
  1. *-- Revision Header do NOT edit!
  2. *
  3. *   Program         :    WildStar.asm   
  4. *   Copyright       :   K.R. Simpson 1991
  5. *   Author          :   Ken Simpson                                         
  6. *   Creation Date   :    15 Feb 1992
  7. *   Current version :    1.2
  8. *   Assembler       :   Macro68 v2.128
  9. *
  10. *   REVISION HISTORY
  11. *
  12. *   Date          Version         Comment
  13. *   ---------     -------         ------------------------------------------
  14. *   24 Jan 1992   1.1
  15. *   15 Feb 1992   1.2             A Bit shorter
  16. *
  17. *-- REV_END --*
  18.  
  19.  
  20.  
  21. RNF_WildStar    EQU    $34
  22. ****************************************************************************
  23.     exeobj
  24.     errfile    't:Errors.assem'
  25.     objfile    'WildStar'
  26.  
  27.  
  28. ;_[]
  29.     SECTION    WildStar000000,CODE
  30. ProgStart
  31.     MOVEA.L    (4),A6
  32.     LEA    (DosName),A1
  33.     MOVEA.L    (LibList,A6),A0
  34.     JSR    (_LVOFindName,A6)
  35.     MOVEA.L    D0,A6
  36.     CMPI.W    #$25,(LIB_VERSION,A6)
  37.     BEQ.W    _Version2            ; This will only work under
  38.                         ; Version 2 so exit if not.
  39.     MOVEQ    #0,D0
  40.     JSR    (_LVOOutput,A6)
  41.     MOVE.L    D0,D1
  42.     LEA    (NotV2,PC),A0
  43.     MOVE.L    A0,D2
  44.     MOVEQ    #$22,D3
  45.     JSR    (_LVOWrite,A6)
  46.     MOVEQ    #$14,D0
  47.     BRA.B    ExitNow
  48.  
  49. _Version2
  50.     MOVEA.L    (dl_Root,A6),A3
  51.     BCHG    #0,(RNF_WildStar,A3)
  52.     BNE.B    StarOff
  53.     MOVEQ    #0,D0
  54.     JSR    (_LVOOutput,A6)
  55.     MOVE.L    D0,D1
  56.     LEA    (StarOn.MSG,PC),A0
  57.     MOVE.L    A0,D2
  58.     MOVEQ    #$23,D3
  59.     JSR    (_LVOWrite,A6)
  60.     MOVEQ    #0,D0
  61.     BRA.B    ExitNow
  62.  
  63. StarOff    MOVEQ    #0,D0
  64.     JSR    (_LVOOutput,A6)
  65.     MOVE.L    D0,D1
  66.     LEA    (StarOff.MSG,PC),A0
  67.     MOVE.L    A0,D2
  68.     MOVEQ    #$2B,D3
  69.     JSR    (_LVOWrite,A6)
  70.     MOVEQ    #0,D0
  71. ExitNow    RTS
  72.  
  73. NotV2        db    'Sorry, this program needs WB 2.0.',$A,0
  74. StarOn.MSG    db    'The star (''*'') is now a wildcard.',$A,0
  75. StarOff.MSG    db    'The star (''*'') is now a normal character.',$A,0
  76. DosName        db    'dos.library',0
  77.     end
  78.